asistentes_curso_2020 <-
data.frame(condicion=c("Estudiante Doctorado",".","Académico", "Funcionario", "Estudiante Doctorado",".", "Estudiante Doctorado", "Académico", "Funcionario", ".", "Estudiante"),externo=c("interno", "externo", "interno", "interno", "interno", "externo", "interno", "interno", "interno", "externo", "interno"),asistencia=c(4, 4, 2, 2, 4, 3, 4, 1, 4, 2, 4))
table(asistentes_curso_2020$condicion)
##
## . Académico Estudiante
## 3 2 1
## Estudiante Doctorado Funcionario
## 3 2
table(asistentes_curso_2020$condicion, exclude=".")
##
## Académico Estudiante Estudiante Doctorado
## 2 1 3
## Funcionario
## 2
prop.table(table(asistentes_curso_2020$condicion, exclude="."))
##
## Académico Estudiante Estudiante Doctorado
## 0.250 0.125 0.375
## Funcionario
## 0.250
prop.table(asistentes_curso_2020$condicion) #requiere una tabla
## Error in sum(x): 'type' (character) de argumento no válido
prop.table(table(asistentes_curso_2020$condicion,
asistentes_curso_2020$externo #se incluye otra variable
))
##
## externo interno
## . 0.27272727 0.00000000
## Académico 0.00000000 0.18181818
## Estudiante 0.00000000 0.09090909
## Estudiante Doctorado 0.00000000 0.27272727
## Funcionario 0.00000000 0.18181818
prop.table(table(asistentes_curso_2020$condicion,
asistentes_curso_2020$externo
),margin= 2) #cambia la manera en que se calculan las proporciones
##
## externo interno
## . 1.000 0.000
## Académico 0.000 0.250
## Estudiante 0.000 0.125
## Estudiante Doctorado 0.000 0.375
## Funcionario 0.000 0.250
# 1 = proporciones por filas, 2= por columnas, NULL =frecuencias globales.
Si cambia el eje, pero también el margin, ¿qué ocurre?
margin.table, Calcula la suma de entradas de una tabla para determinado índice
margin.table(table(asistentes_curso_2020$condicion,
asistentes_curso_2020$externo
),1)
##
## . Académico Estudiante
## 3 2 1
## Estudiante Doctorado Funcionario
## 3 2
margin.table(table(asistentes_curso_2020$condicion,
asistentes_curso_2020$externo
),2)
##
## externo interno
## 3 8
library(janitor)
## Warning: package 'janitor' was built under R version 4.0.3
##
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
asistentes_curso_2020 %>%
janitor::tabyl(condicion, externo) %>%
adorn_totals(c("row", "col")) %>% #añade un total para cada uno
adorn_percentages("col") %>% #calcula porcentajes
adorn_pct_formatting(2) #añade el símbolo de porcentaje y formatea, por ejemplo, cuántos decimales mostrar
## condicion externo interno Total
## . 100.00% 0.00% 27.27%
## Académico 0.00% 25.00% 18.18%
## Estudiante 0.00% 12.50% 9.09%
## Estudiante Doctorado 0.00% 37.50% 27.27%
## Funcionario 0.00% 25.00% 18.18%
## Total 100.00% 100.00% 100.00%